/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / mouse-sel.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 41 75 67 20 32 36 20 32 | on Fri |Aug 26 2|
|00000040| 33 3a 33 31 3a 34 36 20 | 31 39 39 34 0a 3b 3b 3b |3:31:46 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 6d 6f 75 73 65 | 2d 73 65 6c 2e 65 6c 0a |sp/mouse|-sel.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 35 2e | 39 34 2e 38 2e 0a 3b 3b |n 19.25.|94.8..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 2f 67 64 2f |   (erro|r "`/gd/|
|000001a0| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|000001b0| 69 73 70 2f 6d 6f 75 73 | 65 2d 73 65 6c 2e 65 6c |isp/mous|e-sel.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|000001f0| c2 c3 21 88 c2 c4 21 87 | 22 20 5b 70 72 6f 76 69 |..!...!.|" [provi|
|00000200| 64 65 20 6d 6f 75 73 65 | 2d 73 65 6c 20 72 65 71 |de mouse|-sel req|
|00000210| 75 69 72 65 20 6d 6f 75 | 73 65 20 74 68 69 6e 67 |uire mou|se thing|
|00000220| 61 74 70 74 5d 20 32 29 | 0a 28 64 65 66 63 6f 6e |atpt] 2)|.(defcon|
|00000230| 73 74 20 6d 6f 75 73 65 | 2d 73 65 6c 2d 76 65 72 |st mouse|-sel-ver|
|00000240| 73 69 6f 6e 20 22 32 2e | 31 22 20 22 5c 0a 54 68 |sion "2.|1" "\.Th|
|00000250| 65 20 76 65 72 73 69 6f | 6e 20 6e 75 6d 62 65 72 |e versio|n number|
|00000260| 20 6f 66 20 6d 6f 75 73 | 65 2d 73 65 6c 20 28 61 | of mous|e-sel (a|
|00000270| 73 20 73 74 72 69 6e 67 | 29 2e 22 29 0a 28 64 65 |s string|).").(de|
|00000280| 66 76 61 72 20 6d 6f 75 | 73 65 2d 73 65 6c 2d 6c |fvar mou|se-sel-l|
|00000290| 65 61 76 65 2d 70 6f 69 | 6e 74 2d 6e 65 61 72 2d |eave-poi|nt-near-|
|000002a0| 6d 6f 75 73 65 20 74 20 | 22 5c 0a 2a 4c 65 61 76 |mouse t |"\.*Leav|
|000002b0| 65 20 70 6f 69 6e 74 20 | 6e 65 61 72 20 6c 61 73 |e point |near las|
|000002c0| 74 20 6d 6f 75 73 65 20 | 70 6f 73 69 74 69 6f 6e |t mouse |position|
|000002d0| 2e 0a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 5c 5c |..If non|-nil, \\|
|000002e0| 5b 6d 6f 75 73 65 2d 73 | 65 6c 65 63 74 5d 20 61 |[mouse-s|elect] a|
|000002f0| 6e 64 20 5c 5c 5b 6d 6f | 75 73 65 2d 65 78 74 65 |nd \\[mo|use-exte|
|00000300| 6e 64 5d 20 6c 65 61 76 | 65 20 70 6f 69 6e 74 20 |nd] leav|e point |
|00000310| 61 74 20 74 68 65 20 65 | 6e 64 0a 6f 66 20 74 68 |at the e|nd.of th|
|00000320| 65 20 72 65 67 69 6f 6e | 20 6e 65 61 72 65 73 74 |e region| nearest|
|00000330| 20 74 6f 20 77 68 65 72 | 65 20 74 68 65 20 6d 6f | to wher|e the mo|
|00000340| 75 73 65 20 6c 61 73 74 | 20 77 61 73 2e 0a 49 66 |use last| was..If|
|00000350| 20 6e 69 6c 2c 20 70 6f | 69 6e 74 20 69 73 20 61 | nil, po|int is a|
|00000360| 6c 77 61 79 73 20 70 6c | 61 63 65 64 20 61 74 20 |lways pl|aced at |
|00000370| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00000380| 20 74 68 65 20 72 65 67 | 69 6f 6e 2e 22 29 0a 28 | the reg|ion.").(|
|00000390| 64 65 66 76 61 72 20 6d | 6f 75 73 65 2d 73 65 6c |defvar m|ouse-sel|
|000003a0| 2d 72 65 74 61 69 6e 2d | 68 69 67 68 6c 69 67 68 |-retain-|highligh|
|000003b0| 74 20 6e 69 6c 20 22 5c | 0a 2a 52 65 74 61 69 6e |t nil "\|.*Retain|
|000003c0| 20 68 69 67 68 6c 69 67 | 68 74 20 61 66 74 65 72 | highlig|ht after|
|000003d0| 20 64 72 61 67 67 69 6e | 67 20 69 73 20 66 69 6e | draggin|g is fin|
|000003e0| 69 73 68 65 64 2e 0a 49 | 66 20 6e 6f 6e 2d 6e 69 |ished..I|f non-ni|
|000003f0| 6c 2c 20 72 65 67 69 6f | 6e 73 20 73 65 6c 65 63 |l, regio|ns selec|
|00000400| 74 65 64 20 75 73 69 6e | 67 20 5c 5c 5b 6d 6f 75 |ted usin|g \\[mou|
|00000410| 73 65 2d 73 65 6c 65 63 | 74 5d 20 61 6e 64 20 5c |se-selec|t] and \|
|00000420| 5c 5b 6d 6f 75 73 65 2d | 65 78 74 65 6e 64 5d 20 |\[mouse-|extend] |
|00000430| 77 69 6c 6c 0a 72 65 6d | 61 69 6e 20 68 69 67 68 |will.rem|ain high|
|00000440| 6c 69 67 68 74 65 64 2e | 0a 49 66 20 6e 69 6c 2c |lighted.|.If nil,|
|00000450| 20 68 69 67 68 6c 69 67 | 68 74 69 6e 67 20 74 75 | highlig|hting tu|
|00000460| 72 6e 73 20 6f 66 66 20 | 77 68 65 6e 20 79 6f 75 |rns off |when you|
|00000470| 20 72 65 6c 65 61 73 65 | 20 74 68 65 20 6d 6f 75 | release| the mou|
|00000480| 73 65 20 62 75 74 74 6f | 6e 2e 22 29 0a 28 64 65 |se butto|n.").(de|
|00000490| 66 76 61 72 20 6d 6f 75 | 73 65 2d 73 65 6c 2d 63 |fvar mou|se-sel-c|
|000004a0| 79 63 6c 65 2d 63 6c 69 | 63 6b 73 20 74 20 22 5c |ycle-cli|cks t "\|
|000004b0| 0a 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 5c 5c |.*If non|-nil, \\|
|000004c0| 5b 6d 6f 75 73 65 2d 73 | 65 6c 65 63 74 5d 20 63 |[mouse-s|elect] c|
|000004d0| 79 63 6c 65 73 20 74 68 | 65 20 63 6c 69 63 6b 2d |ycles th|e click-|
|000004e0| 63 6f 75 6e 74 73 20 61 | 66 74 65 72 20 33 20 63 |counts a|fter 3 c|
|000004f0| 6c 69 63 6b 73 2e 0a 49 | 65 2e 20 34 20 63 6c 69 |licks..I|e. 4 cli|
|00000500| 63 6b 73 20 3d 20 31 20 | 63 6c 69 63 6b 2c 20 35 |cks = 1 |click, 5|
|00000510| 20 63 6c 69 63 6b 73 20 | 3d 20 32 20 63 6c 69 63 | clicks |= 2 clic|
|00000520| 6b 73 2c 20 65 74 63 2e | 22 29 0a 28 64 65 66 76 |ks, etc.|").(defv|
|00000530| 61 72 20 6d 6f 75 73 65 | 2d 73 65 6c 2d 64 65 66 |ar mouse|-sel-def|
|00000540| 61 75 6c 74 2d 62 69 6e | 64 69 6e 67 73 20 74 20 |ault-bin|dings t |
|00000550| 22 5c 0a 53 65 74 20 74 | 6f 20 6e 69 6c 20 62 65 |"\.Set t|o nil be|
|00000560| 66 6f 72 65 20 6c 6f 61 | 64 69 6e 67 20 60 6d 6f |fore loa|ding `mo|
|00000570| 75 73 65 2d 73 65 6c 27 | 20 74 6f 20 70 72 65 76 |use-sel'| to prev|
|00000580| 65 6e 74 20 64 65 66 61 | 75 6c 74 20 6d 6f 75 73 |ent defa|ult mous|
|00000590| 65 20 62 69 6e 64 69 6e | 67 73 2e 22 29 0a 28 64 |e bindin|gs.").(d|
|000005a0| 65 66 76 61 72 20 6d 6f | 75 73 65 2d 73 65 6c 2d |efvar mo|use-sel-|
|000005b0| 73 65 6c 65 63 74 69 6f | 6e 2d 74 79 70 65 20 6e |selectio|n-type n|
|000005c0| 69 6c 20 22 5c 0a 54 79 | 70 65 20 6f 66 20 63 75 |il "\.Ty|pe of cu|
|000005d0| 72 72 65 6e 74 20 73 65 | 6c 65 63 74 69 6f 6e 22 |rrent se|lection"|
|000005e0| 29 0a 28 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |).(make-|variable|
|000005f0| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 28 71 |-buffer-|local (q|
|00000600| 75 6f 74 65 20 6d 6f 75 | 73 65 2d 73 65 6c 2d 73 |uote mou|se-sel-s|
|00000610| 65 6c 65 63 74 69 6f 6e | 2d 74 79 70 65 29 29 0a |election|-type)).|
|00000620| 28 64 65 66 76 61 72 20 | 6d 6f 75 73 65 2d 73 65 |(defvar |mouse-se|
|00000630| 6c 2d 73 65 6c 65 63 74 | 69 6f 6e 20 22 22 20 22 |l-select|ion "" "|
|00000640| 5c 0a 53 74 6f 72 65 20 | 74 68 65 20 73 65 6c 65 |\.Store |the sele|
|00000650| 63 74 69 6f 6e 20 76 61 | 6c 75 65 20 77 68 65 6e |ction va|lue when|
|00000660| 20 75 73 69 6e 67 20 61 | 20 77 69 6e 64 6f 77 20 | using a| window |
|00000670| 73 79 73 74 65 6d 73 20 | 6f 74 68 65 72 20 74 68 |systems |other th|
|00000680| 61 6e 20 58 2e 22 29 0a | 28 64 65 66 76 61 72 20 |an X.").|(defvar |
|00000690| 6d 6f 75 73 65 2d 73 65 | 6c 2d 73 65 74 2d 73 65 |mouse-se|l-set-se|
|000006a0| 6c 65 63 74 69 6f 6e 2d | 66 75 6e 63 74 69 6f 6e |lection-|function|
|000006b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 | (byte-c|ode "..!|
|000006c0| 83 08 00 c2 87 c3 87 22 | 20 5b 66 62 6f 75 6e 64 |......."| [fbound|
|000006d0| 70 20 78 2d 73 65 74 2d | 73 65 6c 65 63 74 69 6f |p x-set-|selectio|
|000006e0| 6e 20 23 5b 28 73 29 20 | 22 c0 c1 5c 6e 5c 22 87 |n #[(s) |"..\n\".|
|000006f0| 22 20 5b 78 2d 73 65 74 | 2d 73 65 6c 65 63 74 69 |" [x-set|-selecti|
|00000700| 6f 6e 20 50 52 49 4d 41 | 52 59 20 73 5d 20 33 5d |on PRIMA|RY s] 3]|
|00000710| 20 23 5b 28 73 29 20 22 | 08 89 11 87 22 20 5b 73 | #[(s) "|...." [s|
|00000720| 20 6d 6f 75 73 65 2d 73 | 65 6c 2d 73 65 6c 65 63 | mouse-s|el-selec|
|00000730| 74 69 6f 6e 5d 20 32 5d | 5d 20 32 29 20 22 5c 0a |tion] 2]|] 2) "\.|
|00000740| 46 75 6e 63 74 69 6f 6e | 20 74 6f 20 63 61 6c 6c |Function| to call|
|00000750| 20 74 6f 20 73 65 74 20 | 73 65 6c 65 63 74 69 6f | to set |selectio|
|00000760| 6e 2e 0a 43 61 6c 6c 65 | 64 20 77 69 74 68 20 6f |n..Calle|d with o|
|00000770| 6e 65 20 61 72 67 75 6d | 65 6e 74 2c 20 74 68 65 |ne argum|ent, the|
|00000780| 20 74 65 78 74 20 74 6f | 20 73 65 6c 65 63 74 2e | text to| select.|
|00000790| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 6f 75 73 65 |").(defv|ar mouse|
|000007a0| 2d 73 65 6c 2d 67 65 74 | 2d 73 65 6c 65 63 74 69 |-sel-get|-selecti|
|000007b0| 6f 6e 2d 66 75 6e 63 74 | 69 6f 6e 20 28 62 79 74 |on-funct|ion (byt|
|000007c0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 83 08 00 c1 87 |e-code "|..!.....|
|000007d0| c2 87 22 20 5b 66 62 6f | 75 6e 64 70 20 78 2d 67 |.." [fbo|undp x-g|
|000007e0| 65 74 2d 73 65 6c 65 63 | 74 69 6f 6e 20 28 6c 61 |et-selec|tion (la|
|000007f0| 6d 62 64 61 20 6e 69 6c | 20 6d 6f 75 73 65 2d 73 |mbda nil| mouse-s|
|00000800| 65 6c 2d 73 65 6c 65 63 | 74 69 6f 6e 29 5d 20 32 |el-selec|tion)] 2|
|00000810| 29 20 22 5c 0a 46 75 6e | 63 74 69 6f 6e 20 74 6f |) "\.Fun|ction to|
|00000820| 20 63 61 6c 6c 20 74 6f | 20 67 65 74 20 74 68 65 | call to| get the|
|00000830| 20 73 65 6c 65 63 74 69 | 6f 6e 2e 0a 43 61 6c 6c | selecti|on..Call|
|00000840| 65 64 20 77 69 74 68 20 | 6e 6f 20 61 72 67 75 6d |ed with |no argum|
|00000850| 65 6e 74 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |ent.").(|defvar m|
|00000860| 6f 75 73 65 2d 73 65 6c | 2d 63 68 65 63 6b 2d 73 |ouse-sel|-check-s|
|00000870| 65 6c 65 63 74 69 6f 6e | 2d 66 75 6e 63 74 69 6f |election|-functio|
|00000880| 6e 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |n (byte-|code "..|
|00000890| 21 85 07 00 c1 87 22 20 | 5b 66 62 6f 75 6e 64 70 |!....." |[fboundp|
|000008a0| 20 78 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 6f 77 6e | x-selec|tion-own|
|000008b0| 65 72 2d 70 5d 20 32 29 | 20 22 5c 0a 46 75 6e 63 |er-p] 2)| "\.Func|
|000008c0| 74 69 6f 6e 20 74 6f 20 | 63 68 65 63 6b 20 77 68 |tion to |check wh|
|000008d0| 65 74 68 65 72 20 45 6d | 61 63 73 20 73 74 69 6c |ether Em|acs stil|
|000008e0| 6c 20 6f 77 6e 73 20 74 | 68 65 20 73 65 6c 65 63 |l owns t|he selec|
|000008f0| 74 69 6f 6e 2e 0a 43 61 | 6c 6c 65 64 20 77 69 74 |tion..Ca|lled wit|
|00000900| 68 20 6e 6f 20 61 72 67 | 75 6d 65 6e 74 73 2e 22 |h no arg|uments."|
|00000910| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 75 |).(defal|ias 'mou|
|00000920| 73 65 2d 73 65 6c 2d 64 | 65 74 65 72 6d 69 6e 65 |se-sel-d|etermine|
|00000930| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 74 79 70 65 20 |-selecti|on-type |
|00000940| 23 5b 28 4e 43 4c 49 43 | 4b 53 29 20 22 60 66 89 |#[(NCLIC|KS) "`f.|
|00000950| 18 85 09 00 08 7a 19 5c | 6e 83 16 00 0b 53 c4 a6 |.....z.\|n....S..|
|00000960| 54 82 17 00 0b 89 1d c6 | 55 83 5c 22 00 c7 82 51 |T.......|U.\"...Q|
|00000970| 00 0d c4 59 83 2c 00 c8 | 82 51 00 09 c9 3e 83 36 |...Y.,..|.Q...>.6|
|00000980| 00 ca 82 51 00 08 cb 3e | 83 40 00 cc 82 51 00 09 |...Q...>|.@...Q..|
|00000990| cd 3d 83 4a 00 ce 82 51 | 00 09 cf 3d 85 51 00 d0 |.=.J...Q|...=.Q..|
|000009a0| 2b 87 22 20 5b 6e 65 78 | 74 2d 63 68 61 72 20 63 |+." [nex|t-char c|
|000009b0| 68 61 72 2d 73 79 6e 74 | 61 78 20 6d 6f 75 73 65 |har-synt|ax mouse|
|000009c0| 2d 73 65 6c 2d 63 79 63 | 6c 65 2d 63 6c 69 63 6b |-sel-cyc|le-click|
|000009d0| 73 20 4e 43 4c 49 43 4b | 53 20 33 20 6e 63 6c 69 |s NCLICK|S 3 ncli|
|000009e0| 63 6b 73 20 31 20 6e 69 | 6c 20 6c 69 6e 65 20 28 |cks 1 ni|l line (|
|000009f0| 34 30 20 34 31 20 33 34 | 20 33 39 29 20 73 65 78 |40 41 34| 39) sex|
|00000a00| 70 20 28 33 32 20 39 20 | 31 30 29 20 77 68 69 74 |p (32 9 |10) whit|
|00000a10| 65 73 70 61 63 65 20 39 | 35 20 73 79 6d 62 6f 6c |espace 9|5 symbol|
|00000a20| 20 31 31 39 20 77 6f 72 | 64 5d 20 33 20 22 5c 0a | 119 wor|d] 3 "\.|
|00000a30| 44 65 74 65 72 6d 69 6e | 65 20 77 68 61 74 20 5c |Determin|e what \|
|00000a40| 22 74 68 69 6e 67 5c 22 | 20 60 6d 6f 75 73 65 2d |"thing\"| `mouse-|
|00000a50| 73 65 6c 27 20 73 68 6f | 75 6c 64 20 6f 70 65 72 |sel' sho|uld oper|
|00000a60| 61 74 65 20 6f 6e 2e 0a | 54 68 65 20 66 69 72 73 |ate on..|The firs|
|00000a70| 74 20 61 72 67 75 6d 65 | 6e 74 2c 20 4e 43 4c 49 |t argume|nt, NCLI|
|00000a80| 43 4b 53 2c 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |CKS, is |the numb|
|00000a90| 65 72 20 6f 66 20 63 6f | 6e 73 65 63 75 74 69 76 |er of co|nsecutiv|
|00000aa0| 65 0a 6d 6f 75 73 65 20 | 63 6c 69 63 6b 73 20 61 |e.mouse |clicks a|
|00000ab0| 74 20 74 68 65 20 73 61 | 6d 65 20 70 6f 73 69 74 |t the sa|me posit|
|00000ac0| 69 6f 6e 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ion."]).|(defalia|
|00000ad0| 73 20 27 6d 6f 75 73 65 | 2d 73 65 6c 65 63 74 20 |s 'mouse|-select |
|00000ae0| 23 5b 28 45 56 45 4e 54 | 29 20 22 c0 09 21 88 c2 |#[(EVENT|) "..!..|
|00000af0| 09 1b c4 0b 38 a8 83 14 | 00 c4 0b 38 82 15 00 c5 |....8...|...8....|
|00000b00| 29 21 16 06 c7 0e 06 21 | 89 1e 08 83 34 00 c9 16 |)!.....!|....4...|
|00000b10| 5c 6e 0e 08 40 62 88 cb | 0e 08 41 21 88 82 40 00 |\n..@b..|..A!..@.|
|00000b20| 0e 5c 66 83 40 00 cd 16 | 5c 6e ce cf 21 88 29 d0 |.\f.@...|\n..!.).|
|00000b30| 20 87 22 20 5b 6d 6f 75 | 73 65 2d 73 65 74 2d 70 | ." [mou|se-set-p|
|00000b40| 6f 69 6e 74 20 45 56 45 | 4e 54 20 6d 6f 75 73 65 |oint EVE|NT mouse|
|00000b50| 2d 73 65 6c 2d 64 65 74 | 65 72 6d 69 6e 65 2d 73 |-sel-det|ermine-s|
|00000b60| 65 6c 65 63 74 69 6f 6e | 2d 74 79 70 65 20 65 76 |election|-type ev|
|00000b70| 65 6e 74 20 32 20 31 20 | 6d 6f 75 73 65 2d 73 65 |ent 2 1 |mouse-se|
|00000b80| 6c 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 74 79 70 65 |l-select|ion-type|
|00000b90| 20 62 6f 75 6e 64 73 2d | 6f 66 2d 74 68 69 6e 67 | bounds-|of-thing|
|00000ba0| 2d 61 74 2d 70 6f 69 6e | 74 20 6f 62 6a 65 63 74 |-at-poin|t object|
|00000bb0| 2d 62 6f 75 6e 64 73 20 | 74 20 6d 61 72 6b 2d 61 |-bounds |t mark-a|
|00000bc0| 63 74 69 76 65 20 73 65 | 74 2d 6d 61 72 6b 20 74 |ctive se|t-mark t|
|00000bd0| 72 61 6e 73 69 65 6e 74 | 2d 6d 61 72 6b 2d 6d 6f |ransient|-mark-mo|
|00000be0| 64 65 20 6e 69 6c 20 72 | 75 6e 2d 68 6f 6f 6b 73 |de nil r|un-hooks|
|00000bf0| 20 64 65 61 63 74 69 76 | 61 74 65 2d 6d 61 72 6b | deactiv|ate-mark|
|00000c00| 2d 68 6f 6f 6b 20 6d 6f | 75 73 65 2d 65 78 74 65 |-hook mo|use-exte|
|00000c10| 6e 64 5d 20 34 20 22 5c | 0a 53 65 74 20 72 65 67 |nd] 4 "\|.Set reg|
|00000c20| 69 6f 6e 2f 73 65 6c 65 | 63 74 69 6f 6e 20 75 73 |ion/sele|ction us|
|00000c30| 69 6e 67 20 74 68 65 20 | 6d 6f 75 73 65 2e 0a 0a |ing the |mouse...|
|00000c40| 43 6c 69 63 6b 69 6e 67 | 20 73 65 74 73 20 70 6f |Clicking| sets po|
|00000c50| 69 6e 74 20 74 6f 20 63 | 6c 69 63 6b 20 70 6f 73 |int to c|lick pos|
|00000c60| 69 74 69 6f 6e 2c 20 61 | 6e 64 20 64 65 61 63 74 |ition, a|nd deact|
|00000c70| 69 76 61 74 65 73 20 74 | 68 65 20 6d 61 72 6b 0a |ivates t|he mark.|
|00000c80| 69 66 20 79 6f 75 20 61 | 72 65 20 69 6e 20 54 72 |if you a|re in Tr|
|00000c90| 61 6e 73 69 65 6e 74 20 | 4d 61 72 6b 20 6d 6f 64 |ansient |Mark mod|
|00000ca0| 65 2e 0a 44 72 61 67 67 | 69 6e 67 20 65 78 74 65 |e..Dragg|ing exte|
|00000cb0| 6e 64 73 20 72 65 67 69 | 6f 6e 2f 73 65 6c 65 63 |nds regi|on/selec|
|00000cc0| 74 69 6f 6e 2e 0a 0a 44 | 6f 75 62 6c 65 2d 63 6c |tion...D|ouble-cl|
|00000cd0| 69 63 6b 69 6e 67 20 6f | 6e 20 77 6f 72 64 20 63 |icking o|n word c|
|00000ce0| 6f 6e 73 74 69 74 75 65 | 6e 74 73 20 73 65 6c 65 |onstitue|nts sele|
|00000cf0| 63 74 73 20 77 6f 72 64 | 73 2e 0a 44 6f 75 62 6c |cts word|s..Doubl|
|00000d00| 65 2d 63 6c 69 63 6b 69 | 6e 67 20 6f 6e 20 73 79 |e-clicki|ng on sy|
|00000d10| 6d 62 6f 6c 20 63 6f 6e | 73 74 69 74 75 65 6e 74 |mbol con|stituent|
|00000d20| 73 20 73 65 6c 65 63 74 | 73 20 73 79 6d 62 6f 6c |s select|s symbol|
|00000d30| 73 2e 0a 44 6f 75 62 6c | 65 2d 63 6c 69 63 6b 69 |s..Doubl|e-clicki|
|00000d40| 6e 67 20 6f 6e 20 71 75 | 6f 74 65 73 20 6f 72 20 |ng on qu|otes or |
|00000d50| 70 61 72 65 6e 74 68 65 | 73 65 73 20 73 65 6c 65 |parenthe|ses sele|
|00000d60| 63 74 73 20 73 65 78 70 | 73 2e 0a 44 6f 75 62 6c |cts sexp|s..Doubl|
|00000d70| 65 2d 63 6c 69 63 6b 69 | 6e 67 20 6f 6e 20 77 68 |e-clicki|ng on wh|
|00000d80| 69 74 65 73 70 61 63 65 | 20 73 65 6c 65 63 74 73 |itespace| selects|
|00000d90| 20 77 68 69 74 65 73 70 | 61 63 65 2e 0a 54 72 69 | whitesp|ace..Tri|
|00000da0| 70 6c 65 2d 63 6c 69 63 | 6b 69 6e 67 20 73 65 6c |ple-clic|king sel|
|00000db0| 65 63 74 73 20 6c 69 6e | 65 73 2e 0a 0a 43 6c 69 |ects lin|es...Cli|
|00000dc0| 63 6b 69 6e 67 20 6d 6f | 75 73 65 2d 32 20 77 68 |cking mo|use-2 wh|
|00000dd0| 69 6c 65 20 73 65 6c 65 | 63 74 69 6e 67 20 63 6f |ile sele|cting co|
|00000de0| 70 69 65 73 20 74 68 65 | 20 72 65 67 69 6f 6e 20 |pies the| region |
|00000df0| 74 6f 20 74 68 65 20 6b | 69 6c 6c 2d 72 69 6e 67 |to the k|ill-ring|
|00000e00| 2e 0a 43 6c 69 63 6b 69 | 6e 67 20 6d 6f 75 73 65 |..Clicki|ng mouse|
|00000e10| 2d 31 20 6f 72 20 6d 6f | 75 73 65 2d 33 20 6b 69 |-1 or mo|use-3 ki|
|00000e20| 6c 6c 73 20 74 68 65 20 | 72 65 67 69 6f 6e 2e 0a |lls the |region..|
|00000e30| 0a 54 68 69 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |.This sh|ould be |
|00000e40| 62 6f 75 6e 64 20 74 6f | 20 61 20 64 6f 77 6e 2d |bound to| a down-|
|00000e50| 6d 6f 75 73 65 20 65 76 | 65 6e 74 2e 22 20 22 65 |mouse ev|ent." "e|
|00000e60| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |"]).(def|alias 'm|
|00000e70| 6f 75 73 65 2d 65 78 74 | 65 6e 64 20 23 5b 28 26 |ouse-ext|end #[(&|
|00000e80| 6f 70 74 69 6f 6e 61 6c | 20 45 56 45 4e 54 29 20 |optional| EVENT) |
|00000e90| 22 08 83 1c 00 c1 08 1a | c3 5c 6e 38 3a 83 12 00 |".......|.\n8:...|
|00000ea0| c3 82 13 00 c4 5c 6e 38 | 29 89 1d 40 29 21 88 08 |.....\n8|)..@)!..|
|00000eb0| 84 25 00 0e 06 85 27 00 | 0e 07 89 1e 08 83 32 00 |.%....'.|......2.|
|00000ec0| c9 20 82 33 00 60 1e 5c | 6e 0e 08 83 3f 00 cb 20 |. .3.`.\|n...?.. |
|00000ed0| 82 40 00 60 1e 5c 66 cd | 20 1e 0e cf 0e 0e 21 1e |.@.`.\f.| .....!.|
|00000ee0| 10 d1 0e 0e 21 41 40 1e | 12 d3 d1 0e 0e 21 38 1e |....!A@.|.....!8.|
|00000ef0| 14 d5 d6 d7 d8 20 21 5c | 22 41 1e 19 da 1e 1b da |..... !\|"A......|
|00000f00| 1a da 16 07 dc 0e 1d 0e | 5c 6e 0e 5c 66 70 24 88 |........|\n.\fp$.|
|00000f10| de 0e 1d df e0 0e 1d df | 5c 22 23 88 e1 e2 21 83 |........|\"#...!.|
|00000f20| 8f 00 e2 d8 20 e3 5c 22 | 88 e4 8e e5 20 88 e6 0e |.... .\"|.... ...|
|00000f30| 1d 21 e7 0e 1d 21 1e 27 | 89 1e 26 0e 27 3d 83 b6 |.!...!.'|..&.'=..|
|00000f40| 00 0e 06 83 d7 00 da 16 | 07 e8 e9 21 88 82 d7 00 |........|...!....|
|00000f50| 0e 2a 83 ce 00 0e 1b c4 | 3d 83 ce 00 eb 0e 26 21 |.*......|=.....&!|
|00000f60| 88 0e 27 62 88 82 d7 00 | eb 0e 27 21 88 0e 26 62 |..'b....|..'!..&b|
|00000f70| 88 0e 07 83 ea 00 0e 2c | 83 ea 00 0e 2c 0e 26 0e |.......,|....,.&.|
|00000f80| 27 7b 21 88 0e 2d a2 ee | 3d 83 01 01 ef 0e 26 0e |'{!..-..|=.....&.|
|00000f90| 27 5c 22 88 f0 20 88 f0 | 20 82 3e 01 0e 2d a2 f1 |'\".. ..| .>..-..|
|00000fa0| 3e 83 24 01 f2 0e 26 0e | 27 5c 22 88 0e 06 83 1c |>.$...&.|'\".....|
|00000fb0| 01 da 16 07 e8 e9 21 88 | f0 20 88 f0 20 82 3e 01 |......!.|. .. .>.|
|00000fc0| 0e 2d a2 f3 3d 85 3e 01 | f2 0e 26 0e 27 5c 22 88 |.-..=.>.|..&.'\".|
|00000fd0| 0e 06 85 3e 01 da 16 07 | e8 e9 21 2e 0d 87 22 20 |...>....|..!..." |
|00000fe0| 5b 45 56 45 4e 54 20 73 | 65 6c 65 63 74 2d 77 69 |[EVENT s|elect-wi|
|00000ff0| 6e 64 6f 77 20 65 76 65 | 6e 74 20 32 20 31 20 70 |ndow eve|nt 2 1 p|
|00001000| 6f 73 69 74 69 6f 6e 20 | 74 72 61 6e 73 69 65 6e |osition |transien|
|00001010| 74 2d 6d 61 72 6b 2d 6d | 6f 64 65 20 6d 61 72 6b |t-mark-m|ode mark|
|00001020| 2d 61 63 74 69 76 65 20 | 75 73 65 2d 72 65 67 69 |-active |use-regi|
|00001030| 6f 6e 20 72 65 67 69 6f | 6e 2d 62 65 67 69 6e 6e |on regio|n-beginn|
|00001040| 69 6e 67 20 6d 69 6e 20 | 72 65 67 69 6f 6e 2d 65 |ing min |region-e|
|00001050| 6e 64 20 6d 61 78 20 73 | 65 6c 65 63 74 65 64 2d |nd max s|elected-|
|00001060| 77 69 6e 64 6f 77 20 6f | 72 69 67 2d 77 69 6e 64 |window o|rig-wind|
|00001070| 6f 77 20 77 69 6e 64 6f | 77 2d 66 72 61 6d 65 20 |ow windo|w-frame |
|00001080| 6f 72 69 67 2d 77 69 6e | 64 6f 77 2d 66 72 61 6d |orig-win|dow-fram|
|00001090| 65 20 77 69 6e 64 6f 77 | 2d 65 64 67 65 73 20 74 |e window|-edges t|
|000010a0| 6f 70 20 33 20 62 6f 74 | 74 6f 6d 20 61 73 73 6f |op 3 bot|tom asso|
|000010b0| 63 20 63 75 72 73 6f 72 | 2d 74 79 70 65 20 66 72 |c cursor|-type fr|
|000010c0| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 73 |ame-para|meters s|
|000010d0| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 6f 72 |elected-|frame or|
|000010e0| 69 67 2d 63 75 72 73 6f | 72 2d 74 79 70 65 20 6e |ig-curso|r-type n|
|000010f0| 69 6c 20 64 69 72 65 63 | 74 69 6f 6e 20 6d 6f 76 |il direc|tion mov|
|00001100| 65 2d 6f 76 65 72 6c 61 | 79 20 6d 6f 75 73 65 2d |e-overla|y mouse-|
|00001110| 64 72 61 67 2d 6f 76 65 | 72 6c 61 79 20 6f 76 65 |drag-ove|rlay ove|
|00001120| 72 6c 61 79 2d 70 75 74 | 20 66 61 63 65 20 6f 76 |rlay-put| face ov|
|00001130| 65 72 6c 61 79 2d 67 65 | 74 20 66 62 6f 75 6e 64 |erlay-ge|t fbound|
|00001140| 70 20 6d 6f 64 69 66 79 | 2d 66 72 61 6d 65 2d 70 |p modify|-frame-p|
|00001150| 61 72 61 6d 65 74 65 72 | 73 20 28 28 63 75 72 73 |arameter|s ((curs|
|00001160| 6f 72 2d 74 79 70 65 20 | 2e 20 62 61 72 29 29 20 |or-type |. bar)) |
|00001170| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |((byte-c|ode "..!|
|00001180| 83 0f 00 c1 c2 20 c3 5c | 66 42 43 5c 22 88 0d 84 |..... .\|fBC\"...|
|00001190| 18 00 c6 0e 07 21 88 c0 | 87 22 20 5b 66 62 6f 75 |.....!..|." [fbou|
|000011a0| 6e 64 70 20 6d 6f 64 69 | 66 79 2d 66 72 61 6d 65 |ndp modi|fy-frame|
|000011b0| 2d 70 61 72 61 6d 65 74 | 65 72 73 20 73 65 6c 65 |-paramet|ers sele|
|000011c0| 63 74 65 64 2d 66 72 61 | 6d 65 20 63 75 72 73 6f |cted-fra|me curso|
|000011d0| 72 2d 74 79 70 65 20 6f | 72 69 67 2d 63 75 72 73 |r-type o|rig-curs|
|000011e0| 6f 72 2d 74 79 70 65 20 | 6d 6f 75 73 65 2d 73 65 |or-type |mouse-se|
|000011f0| 6c 2d 72 65 74 61 69 6e | 2d 68 69 67 68 6c 69 67 |l-retain|-highlig|
|00001200| 68 74 20 64 65 6c 65 74 | 65 2d 6f 76 65 72 6c 61 |ht delet|e-overla|
|00001210| 79 20 6d 6f 75 73 65 2d | 64 72 61 67 2d 6f 76 65 |y mouse-|drag-ove|
|00001220| 72 6c 61 79 5d 20 34 29 | 29 20 28 6c 61 6d 62 64 |rlay] 4)|) (lambd|
|00001230| 61 20 6e 69 6c 20 28 74 | 72 61 63 6b 2d 6d 6f 75 |a nil (t|rack-mou|
|00001240| 73 65 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |se (byte|-code ".|
|00001250| 83 5c 66 00 08 89 11 c2 | 10 82 18 00 c3 20 89 11 |.\f.....|..... ..|
|00001260| 3a 85 98 01 09 40 c4 3e | 85 98 01 09 19 c5 09 38 |:....@.>|.......8|
|00001270| 3a 83 28 00 c5 82 29 00 | c6 09 38 29 1e 07 09 a2 |:.(...).|..8)....|
|00001280| c8 3d 84 fd 00 0e 07 89 | 1e 09 40 29 83 61 00 0e |.=......|..@).a..|
|00001290| 07 89 1e 09 40 29 1e 5c | 6e cb 0e 5c 6e 21 83 56 |....@).\|n..\n!.V|
|000012a0| 00 cc 0e 5c 6e 21 82 58 | 00 0e 5c 6e 29 cc 0e 0d |...\n!.X|..\n)...|
|000012b0| 21 3d 83 fd 00 0e 07 89 | 1e 09 40 29 0e 0d 3d 84 |!=......|..@)..=.|
|000012c0| b9 00 ce 20 41 41 89 1e | 0f 83 95 00 6f 84 95 00 |... AA..|....o...|
|000012d0| 0e 0f 0e 10 57 83 95 00 | d1 0e 0d 0e 0f 0e 10 5a |....W...|.......Z|
|000012e0| 0e 12 0e 13 24 88 82 b5 | 00 0e 0f 83 b5 00 6d 84 |....$...|......m.|
|000012f0| b5 00 0e 0f 0e 14 59 83 | b5 00 d1 0e 0d 0e 0f 0e |......Y.|........|
|00001300| 14 5a 54 0e 12 0e 15 24 | 88 29 82 fd 00 0e 07 89 |.ZT....$|.)......|
|00001310| 1e 09 41 40 3a 83 cc 00 | 0e 09 41 40 40 82 d0 00 |..A@:...|..A@@...|
|00001320| 0e 09 41 40 29 d6 3d 83 | e3 00 d1 0e 0d c6 0e 12 |..A@).=.|........|
|00001330| 0e 15 24 88 82 fd 00 0e | 07 89 1e 09 41 40 3a 83 |..$.....|....A@:.|
|00001340| f6 00 0e 09 41 40 40 82 | fa 00 0e 09 41 40 29 62 |....A@@.|....A@)b|
|00001350| 88 0e 17 84 20 01 0e 15 | 0e 13 3d 84 20 01 60 0e |.... ...|..=. .`.|
|00001360| 15 0e 13 5c 5c c5 a5 57 | 83 1a 01 d8 82 1b 01 c6 |...\\..W|........|
|00001370| 16 17 82 45 01 0e 17 d8 | 3d 84 34 01 60 0e 15 58 |...E....|=.4.`..X|
|00001380| 83 34 01 d8 16 17 82 45 | 01 0e 17 c6 3d 84 45 01 |.4.....E|....=.E.|
|00001390| 60 0e 13 59 83 45 01 c6 | 16 17 0e 19 83 74 01 0e |`..Y.E..|.....t..|
|000013a0| 17 c6 3d 83 58 01 6d 84 | 58 01 c6 75 88 60 c2 1e |..=.X.m.|X..u.`..|
|000013b0| 1a 1e 1b 0e 17 c6 3d 83 | 6a 01 0e 15 82 6c 01 0e |......=.|j....l..|
|000013c0| 13 62 88 c2 dc dd 8f 88 | 2a de 0e 12 0e 17 c6 3d |.b......|*......=|
|000013d0| 83 83 01 0e 15 82 84 01 | 60 0e 17 d8 3d 83 90 01 |........|`...=...|
|000013e0| 0e 13 82 91 01 60 70 24 | 88 29 82 00 00 87 22 20 |.....`p$|.)...." |
|000013f0| 5b 45 56 45 4e 54 20 65 | 76 65 6e 74 20 6e 69 6c |[EVENT e|vent nil|
|00001400| 20 72 65 61 64 2d 65 76 | 65 6e 74 20 28 6d 6f 75 | read-ev|ent (mou|
|00001410| 73 65 2d 6d 6f 76 65 6d | 65 6e 74 20 73 77 69 74 |se-movem|ent swit|
|00001420| 63 68 2d 66 72 61 6d 65 | 29 20 32 20 31 20 65 6e |ch-frame|) 2 1 en|
|00001430| 64 20 73 77 69 74 63 68 | 2d 66 72 61 6d 65 20 70 |d switch|-frame p|
|00001440| 6f 73 69 74 69 6f 6e 20 | 70 6f 73 6e 2d 77 20 77 |osition |posn-w w|
|00001450| 69 6e 64 6f 77 70 20 77 | 69 6e 64 6f 77 2d 66 72 |indowp w|indow-fr|
|00001460| 61 6d 65 20 6f 72 69 67 | 2d 77 69 6e 64 6f 77 20 |ame orig|-window |
|00001470| 6d 6f 75 73 65 2d 70 6f | 73 69 74 69 6f 6e 20 65 |mouse-po|sition e|
|00001480| 6e 64 2d 72 6f 77 20 74 | 6f 70 20 6d 6f 75 73 65 |nd-row t|op mouse|
|00001490| 2d 73 63 72 6f 6c 6c 2d | 73 75 62 72 20 6d 6f 75 |-scroll-|subr mou|
|000014a0| 73 65 2d 64 72 61 67 2d | 6f 76 65 72 6c 61 79 20 |se-drag-|overlay |
|000014b0| 6d 61 78 20 62 6f 74 74 | 6f 6d 20 6d 69 6e 20 6d |max bott|om min m|
|000014c0| 6f 64 65 2d 6c 69 6e 65 | 20 64 69 72 65 63 74 69 |ode-line| directi|
|000014d0| 6f 6e 20 2d 31 20 6d 6f | 75 73 65 2d 73 65 6c 2d |on -1 mo|use-sel-|
|000014e0| 73 65 6c 65 63 74 69 6f | 6e 2d 74 79 70 65 20 6c |selectio|n-type l|
|000014f0| 61 73 74 20 67 6f 61 6c | 20 28 62 79 74 65 2d 63 |ast goal| (byte-c|
|00001500| 6f 64 65 20 22 08 09 60 | 5a 5f c2 56 83 14 00 60 |ode "..`|Z_.V...`|
|00001510| 13 c4 0d 08 5c 22 88 82 | 00 00 60 1e 06 c4 0d 08 |....\"..|..`.....|
|00001520| 5b 5c 22 88 08 09 60 5a | 5f c2 56 83 2c 00 0e 06 |[\"...`Z|_.V.,...|
|00001530| 82 2d 00 0b 62 88 29 c2 | 87 22 20 5b 64 69 72 65 |.-..b.).|." [dire|
|00001540| 63 74 69 6f 6e 20 67 6f | 61 6c 20 30 20 6c 61 73 |ction go|al 0 las|
|00001550| 74 20 66 6f 72 77 61 72 | 64 2d 74 68 69 6e 67 20 |t forwar|d-thing |
|00001560| 6d 6f 75 73 65 2d 73 65 | 6c 2d 73 65 6c 65 63 74 |mouse-se|l-select|
|00001570| 69 6f 6e 2d 74 79 70 65 | 20 65 6e 64 5d 20 33 29 |ion-type| end] 3)|
|00001580| 20 28 28 65 72 72 6f 72 | 29 29 20 6d 6f 76 65 2d | ((error|)) move-|
|00001590| 6f 76 65 72 6c 61 79 5d | 20 36 29 29 29 20 6f 76 |overlay]| 6))) ov|
|000015a0| 65 72 6c 61 79 2d 73 74 | 61 72 74 20 6f 76 65 72 |erlay-st|art over|
|000015b0| 6c 61 79 2d 65 6e 64 20 | 72 75 6e 2d 68 6f 6f 6b |lay-end |run-hook|
|000015c0| 73 20 64 65 61 63 74 69 | 76 61 74 65 2d 6d 61 72 |s deacti|vate-mar|
|000015d0| 6b 2d 68 6f 6f 6b 20 6d | 6f 75 73 65 2d 73 65 6c |k-hook m|ouse-sel|
|000015e0| 2d 6c 65 61 76 65 2d 70 | 6f 69 6e 74 2d 6e 65 61 |-leave-p|oint-nea|
|000015f0| 72 2d 6d 6f 75 73 65 20 | 73 65 74 2d 6d 61 72 6b |r-mouse |set-mark|
|00001600| 20 6d 6f 75 73 65 2d 73 | 65 6c 2d 73 65 74 2d 73 | mouse-s|el-set-s|
|00001610| 65 6c 65 63 74 69 6f 6e | 2d 66 75 6e 63 74 69 6f |election|-functio|
|00001620| 6e 20 6c 61 73 74 2d 69 | 6e 70 75 74 2d 65 76 65 |n last-i|nput-eve|
|00001630| 6e 74 20 64 6f 77 6e 2d | 6d 6f 75 73 65 2d 32 20 |nt down-|mouse-2 |
|00001640| 63 6f 70 79 2d 72 65 67 | 69 6f 6e 2d 61 73 2d 6b |copy-reg|ion-as-k|
|00001650| 69 6c 6c 20 72 65 61 64 | 2d 65 76 65 6e 74 20 28 |ill read|-event (|
|00001660| 64 6f 77 6e 2d 6d 6f 75 | 73 65 2d 31 20 64 6f 77 |down-mou|se-1 dow|
|00001670| 6e 2d 6d 6f 75 73 65 2d | 33 29 20 6b 69 6c 6c 2d |n-mouse-|3) kill-|
|00001680| 72 65 67 69 6f 6e 20 64 | 6f 75 62 6c 65 2d 6d 6f |region d|ouble-mo|
|00001690| 75 73 65 2d 33 5d 20 37 | 20 22 5c 0a 45 78 74 65 |use-3] 7| "\.Exte|
|000016a0| 6e 64 20 72 65 67 69 6f | 6e 2f 73 65 6c 65 63 74 |nd regio|n/select|
|000016b0| 69 6f 6e 20 75 73 69 6e | 67 20 74 68 65 20 6d 6f |ion usin|g the mo|
|000016c0| 75 73 65 2e 0a 0a 53 65 | 65 20 64 6f 63 75 6d 65 |use...Se|e docume|
|000016d0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 6d 6f 75 73 |ntation |for mous|
|000016e0| 65 2d 73 65 6c 65 63 74 | 20 66 6f 72 20 6d 6f 72 |e-select| for mor|
|000016f0| 65 20 64 65 74 61 69 6c | 73 2e 0a 0a 54 68 69 73 |e detail|s...This|
|00001700| 20 73 68 6f 75 6c 64 20 | 62 65 20 62 6f 75 6e 64 | should |be bound|
|00001710| 20 74 6f 20 61 20 64 6f | 77 6e 2d 6d 6f 75 73 65 | to a do|wn-mouse|
|00001720| 20 65 76 65 6e 74 2e 22 | 20 22 65 22 5d 29 0a 28 | event."| "e"]).(|
|00001730| 64 65 66 61 6c 69 61 73 | 20 27 6d 6f 75 73 65 2d |defalias| 'mouse-|
|00001740| 69 6e 73 65 72 74 2d 73 | 65 6c 65 63 74 69 6f 6e |insert-s|election|
|00001750| 20 23 5b 28 63 6c 69 63 | 6b 29 20 22 08 84 08 00 | #[(clic|k) "....|
|00001760| c1 5c 6e 21 88 0b 83 12 | 00 c4 15 c6 c7 21 88 0e |.\n!....|.....!..|
|00001770| 08 85 1f 00 0e 08 20 86 | 1e 00 c9 63 87 22 20 5b |...... .|...c." [|
|00001780| 6d 6f 75 73 65 2d 79 61 | 6e 6b 2d 61 74 2d 70 6f |mouse-ya|nk-at-po|
|00001790| 69 6e 74 20 6d 6f 75 73 | 65 2d 73 65 74 2d 70 6f |int mous|e-set-po|
|000017a0| 69 6e 74 20 63 6c 69 63 | 6b 20 74 72 61 6e 73 69 |int clic|k transi|
|000017b0| 65 6e 74 2d 6d 61 72 6b | 2d 6d 6f 64 65 20 6e 69 |ent-mark|-mode ni|
|000017c0| 6c 20 6d 61 72 6b 2d 61 | 63 74 69 76 65 20 72 75 |l mark-a|ctive ru|
|000017d0| 6e 2d 68 6f 6f 6b 73 20 | 64 65 61 63 74 69 76 61 |n-hooks |deactiva|
|000017e0| 74 65 2d 6d 61 72 6b 2d | 68 6f 6f 6b 20 6d 6f 75 |te-mark-|hook mou|
|000017f0| 73 65 2d 73 65 6c 2d 67 | 65 74 2d 73 65 6c 65 63 |se-sel-g|et-selec|
|00001800| 74 69 6f 6e 2d 66 75 6e | 63 74 69 6f 6e 20 22 22 |tion-fun|ction ""|
|00001810| 5d 20 32 20 22 5c 0a 49 | 6e 73 65 72 74 20 74 68 |] 2 "\.I|nsert th|
|00001820| 65 20 63 6f 6e 74 65 6e | 74 73 20 6f 66 20 74 68 |e conten|ts of th|
|00001830| 65 20 73 65 6c 65 63 74 | 69 6f 6e 20 61 74 20 6d |e select|ion at m|
|00001840| 6f 75 73 65 20 63 6c 69 | 63 6b 2e 0a 49 66 20 60 |ouse cli|ck..If `|
|00001850| 6d 6f 75 73 65 2d 79 61 | 6e 6b 2d 61 74 2d 70 6f |mouse-ya|nk-at-po|
|00001860| 69 6e 74 27 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |int' is |non-nil,|
|00001870| 20 69 6e 73 65 72 74 20 | 61 74 20 70 6f 69 6e 74 | insert |at point|
|00001880| 20 69 6e 73 74 65 61 64 | 2e 22 20 22 65 22 5d 29 | instead|." "e"])|
|00001890| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|000018a0| 65 2d 73 65 6c 2d 76 61 | 6c 69 64 61 74 65 2d 73 |e-sel-va|lidate-s|
|000018b0| 65 6c 65 63 74 69 6f 6e | 20 23 5b 6e 69 6c 20 22 |election| #[nil "|
|000018c0| 08 3f 86 0d 00 08 20 86 | 0d 00 c1 5c 6e 21 87 22 |.?.... .|...\n!."|
|000018d0| 20 5b 6d 6f 75 73 65 2d | 73 65 6c 2d 63 68 65 63 | [mouse-|sel-chec|
|000018e0| 6b 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 66 75 6e 63 |k-select|ion-func|
|000018f0| 74 69 6f 6e 20 64 65 6c | 65 74 65 2d 6f 76 65 72 |tion del|ete-over|
|00001900| 6c 61 79 20 6d 6f 75 73 | 65 2d 64 72 61 67 2d 6f |lay mous|e-drag-o|
|00001910| 76 65 72 6c 61 79 5d 20 | 32 20 22 5c 0a 52 65 6d |verlay] |2 "\.Rem|
|00001920| 6f 76 65 20 73 65 6c 65 | 63 74 69 6f 6e 20 68 69 |ove sele|ction hi|
|00001930| 67 68 6c 69 67 68 74 20 | 69 66 20 65 6d 61 63 73 |ghlight |if emacs|
|00001940| 20 6e 6f 20 6c 6f 6e 67 | 65 72 20 6f 77 6e 73 20 | no long|er owns |
|00001950| 74 68 65 20 70 72 69 6d | 61 72 79 20 73 65 6c 65 |the prim|ary sele|
|00001960| 63 74 69 6f 6e 2e 22 5d | 29 0a 28 62 79 74 65 2d |ction."]|).(byte-|
|00001970| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 0b 83 30 00 |code "..|.\"...0.|
|00001980| c4 c5 21 88 c4 c6 21 88 | c4 c7 21 88 c8 c9 ca 5c |..!...!.|..!....\|
|00001990| 22 88 c8 cb cc 5c 22 88 | 0b cd 3d 84 30 00 c8 ce |"....\".|..=.0...|
|000019a0| cf 5c 22 88 d0 16 11 d0 | 16 12 d0 87 22 20 5b 61 |.\".....|...." [a|
|000019b0| 64 64 2d 68 6f 6f 6b 20 | 70 72 65 2d 63 6f 6d 6d |dd-hook |pre-comm|
|000019c0| 61 6e 64 2d 68 6f 6f 6b | 20 6d 6f 75 73 65 2d 73 |and-hook| mouse-s|
|000019d0| 65 6c 2d 76 61 6c 69 64 | 61 74 65 2d 73 65 6c 65 |el-valid|ate-sele|
|000019e0| 63 74 69 6f 6e 20 6d 6f | 75 73 65 2d 73 65 6c 2d |ction mo|use-sel-|
|000019f0| 64 65 66 61 75 6c 74 2d | 62 69 6e 64 69 6e 67 73 |default-|bindings|
|00001a00| 20 67 6c 6f 62 61 6c 2d | 75 6e 73 65 74 2d 6b 65 | global-|unset-ke|
|00001a10| 79 20 5b 6d 6f 75 73 65 | 2d 31 5d 20 5b 64 72 61 |y [mouse|-1] [dra|
|00001a20| 67 2d 6d 6f 75 73 65 2d | 31 5d 20 5b 6d 6f 75 73 |g-mouse-|1] [mous|
|00001a30| 65 2d 33 5d 20 67 6c 6f | 62 61 6c 2d 73 65 74 2d |e-3] glo|bal-set-|
|00001a40| 6b 65 79 20 5b 64 6f 77 | 6e 2d 6d 6f 75 73 65 2d |key [dow|n-mouse-|
|00001a50| 31 5d 20 6d 6f 75 73 65 | 2d 73 65 6c 65 63 74 20 |1] mouse|-select |
|00001a60| 5b 64 6f 77 6e 2d 6d 6f | 75 73 65 2d 33 5d 20 6d |[down-mo|use-3] m|
|00001a70| 6f 75 73 65 2d 65 78 74 | 65 6e 64 20 69 6e 74 65 |ouse-ext|end inte|
|00001a80| 72 70 72 6f 67 72 61 6d | 2d 63 75 74 2d 70 61 73 |rprogram|-cut-pas|
|00001a90| 74 65 20 5b 6d 6f 75 73 | 65 2d 32 5d 20 6d 6f 75 |te [mous|e-2] mou|
|00001aa0| 73 65 2d 69 6e 73 65 72 | 74 2d 73 65 6c 65 63 74 |se-inser|t-select|
|00001ab0| 69 6f 6e 20 6e 69 6c 20 | 69 6e 74 65 72 70 72 6f |ion nil |interpro|
|00001ac0| 67 72 61 6d 2d 63 75 74 | 2d 66 75 6e 63 74 69 6f |gram-cut|-functio|
|00001ad0| 6e 20 69 6e 74 65 72 70 | 72 6f 67 72 61 6d 2d 70 |n interp|rogram-p|
|00001ae0| 61 73 74 65 2d 66 75 6e | 63 74 69 6f 6e 5d 20 33 |aste-fun|ction] 3|
|00001af0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+